home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / Lang / Nano.lha / nano / prog / constyle.n < prev    next >
Encoding:
Text File  |  2002-05-25  |  680 b   |  28 lines
  1. string s[5]; string ch[2]; int i; int slen; int ok;
  2. int lb;
  3.  
  4. lb = 4;     left border
  5.  
  6. print /r, /n;
  7. print /slb, "Con-Style 1.0", /n2;
  8. print /slb, "b = bold", /n;
  9. print /slb, "i = italic", /n;
  10. print /slb, "u = underline", /n;
  11. print /slb, "r = normal", /n2;
  12. print /slb, "Example: 'bu' = bold and underlined.", /n2;
  13. print /slb; input "Style: " s;
  14.  
  15. strlen slen s;
  16. i = 0; dec slen;
  17. while i <= slen;
  18.     ch = s[i]; ok = 0;
  19.     if ch = "b"; print /b; ok = 1; endif;
  20.     if ch = "i"; print /i; ok = 1; endif;
  21.     if ch = "u"; print /u; ok = 1; endif;
  22.     if ch = "r"; print /r; ok = 1; endif;
  23.  
  24.     if ok = 0; print /slb, "illegal style: '", ch, "'", /n; endif;
  25.     inc i;
  26. wend;
  27. print /n;
  28.